home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Cell Control / DATA1.CAB / DELPHIDM / UCelltyp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-11  |  2.2 KB  |  76 lines
  1. unit UCelltyp;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Tempunit, ComCtrls, StdCtrls, Buttons, OleCtrls, CELLLib_TLB, ExtCtrls;
  8.  
  9. type
  10.   TFCelltyp = class(TTemplate)
  11.     procedure FormShow(Sender: TObject);
  12.     procedure BitBtn1Click(Sender: TObject);
  13.   private
  14.     { Private declarations }
  15.   public
  16.     { Public declarations }
  17.   end;
  18.  
  19. var
  20.   FCelltyp: TFCelltyp;
  21.  
  22. implementation
  23.  
  24. {$R *.DFM}
  25.  
  26. procedure TFCelltyp.FormShow(Sender: TObject);
  27. Var
  28.     vbCrLf,tmp : string;
  29. begin
  30.   inherited;
  31.    vbCrLf:=chr($A);
  32.    Cell1.DoSetCellString( 0, 1, 'Button');
  33.    Cell1.DoSetCellString( 0, 3, 'Check Button');
  34.    Cell1.DoSetCellString( 0, 5, 'Radio Button');
  35.    Cell1.DoSetCellString( 0, 7, 'Drop list');
  36.    Cell1.DoSetCellString( 0, 9, 'Scorll');
  37.    Cell1.DoSetCellString( 0, 11, 'Spin');
  38.    Cell1.DoSetCellString( 0, 14, 'Drop Cells');
  39.  
  40.    Cell1.DoSetButtonCell( 2, 1, 'Press me!', 'You are acumen!');
  41.    Cell1.DoSetCheckboxCell( 2, 3, 'X means selected');
  42.    Cell1.DoSetRadioCell( 2, 5, 'Apple' + vbCrLf + 'Cider');
  43.    Cell1.DoSetDroplistCell( 2, 7, 'Peking' + vbCrLf + 'Hongkong' + vbCrLf + 'Macao', true, false);
  44.    Cell1.DoSetTextSpinCell( 2, 9, 'Male' + vbCrLf + 'Femail' + vbCrLf + 'Unknow');
  45.    Cell1.DoSetValueSpinCell( 2, 11, 0, 100, 10);
  46.    Cell1.DoSetDropGridCell( 2, 14, 0, 0, 5, 5, 0, false, 0, false, false);
  47.  
  48.    Cell1.DoSetDroplistCell( 3, 7, 'Peking' + vbCrLf + 'Hongkong' + vbCrLf + 'Macao', true, true);
  49.    Cell1.DoSetDroplistCell( 4, 7, 'Peking' + vbCrLf + 'Hongkong' + vbCrLf + 'Macao', false, false);
  50.    Cell1.DoSetCellString( 4, 7, 'Input here!');
  51.    Cell1.DoSetCellString( 3, 7, 'come here!');
  52.    Cell1.DoSetCellValue( 2, 11, 0);
  53.  
  54.    Cell1.DoSetRowHeight( 5, 150);
  55.    Cell1.PageLabelVisible := False;
  56.  
  57.    Cell1.DoJoinCells(3, 0, 5, 6);
  58.   if copy(ExtractFilePath(Application.Exename),length(ExtractFilePath(Application.Exename)),1)='\' then
  59.   begin
  60.     tmp := ExtractFilePath(Application.Exename) + 'garbo.jpg';
  61.   end  Else
  62.   begin
  63.     tmp := ExtractFilePath(Application.Exename) + '\garbo.jpg';
  64.   End;
  65.  
  66.    Cell1.DoSetCellPicture( 3, 0, tmp, 1);
  67. end;
  68.  
  69. procedure TFCelltyp.BitBtn1Click(Sender: TObject);
  70. begin
  71.   inherited;
  72.         ;
  73. end;
  74.  
  75. end.
  76.